Private Sub class_initialize()
    MsgBox "Se inicializa el objeto."
    If pNombre = "" Then
        pNombre = "<Vaco>"
    End If
End Sub
